home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Learning Director.dcr / Internal_1_MS_StartMovie.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  1.3 KB  |  60 lines
  1. on startMovie
  2.   ResetGlobals()
  3.   set wind to MyTutorWindow()
  4.   if not voidp(wind) then
  5.     set the title of wind to "Learning Director"
  6.     set the windowType of wind to 4
  7.   end if
  8.   SG(#gLessonList, getlist("@LessonList#field", "AuthorData"))
  9.   SG(#gIsSmallWindow, 0)
  10.   if the machineType < 256 then
  11.     SetField("CurrentLessonSteps#field", EMPTY, "Geneva", 9, "plain")
  12.     SetField("LineBreakTester#field", EMPTY, "Geneva", 9, "plain")
  13.     SetField("MenuPlaceHolder#field", EMPTY, "Geneva", 9, "plain")
  14.   else
  15.     SetField("CurrentLessonSteps#field", EMPTY, "MS Sans Serif", 9, "plain")
  16.     SetField("LineBreakTester#field", EMPTY, "MS Sans Serif", 9, "plain")
  17.     SetField("MenuPlaceHolder#field", EMPTY, "MS Sans Serif", 9, "plain")
  18.   end if
  19.   VOlist()
  20. end
  21.  
  22. on stopMovie
  23.   go(7818)
  24.   set wind to MyTutorWindow()
  25.   puppetSound(1, 0)
  26.   puppetSound(2, 0)
  27.   sound stop 1
  28.   sound stop 2
  29.   if count(the windowList) < 2 then
  30.     clearGlobals()
  31.   end if
  32. end
  33.  
  34. on MyTutorWindow
  35.   set w to MyWindow()
  36.   if voidp(w) then
  37.     set w to the activeWindow
  38.   end if
  39.   return w
  40. end
  41.  
  42. on closeWindow
  43.   go(7818)
  44.   puppetSound(1, 0)
  45.   puppetSound(2, 0)
  46.   sound stop 1
  47.   sound stop 2
  48.   if count(the windowList) < 2 then
  49.     clearGlobals()
  50.   end if
  51.   forget(the activeWindow)
  52. end
  53.  
  54. on idle
  55. end
  56.  
  57. on DoQuit
  58.   halt()
  59. end
  60.